home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / editba / batch.frm (.txt) next >
Encoding:
Visual Basic Form  |  1995-05-08  |  4.3 KB  |  162 lines

  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "BatchEdit (Untitled)"
  4.    ClientHeight    =   6630
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1770
  7.    ClientWidth     =   7365
  8.    Height          =   7320
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   6630
  12.    ScaleWidth      =   7365
  13.    Top             =   1140
  14.    Width           =   7485
  15.    Begin PictureBox CMDialog2 
  16.       BackColor       =   &H000000FF&
  17.       Height          =   1000
  18.       Left            =   0
  19.       ScaleHeight     =   975
  20.       ScaleWidth      =   975
  21.       TabIndex        =   1
  22.       Top             =   0
  23.       Width           =   1000
  24.    End
  25.    Begin PictureBox CMDialog1 
  26.       BackColor       =   &H000000FF&
  27.       Height          =   1000
  28.       Left            =   0
  29.       ScaleHeight     =   975
  30.       ScaleWidth      =   975
  31.       TabIndex        =   2
  32.       Top             =   0
  33.       Width           =   1000
  34.    End
  35.    Begin TextBox Text1 
  36.       BorderStyle     =   0  'None
  37.       ForeColor       =   &H00000000&
  38.       Height          =   6855
  39.       Left            =   0
  40.       MultiLine       =   -1  'True
  41.       TabIndex        =   0
  42.       Top             =   0
  43.       Width           =   9615
  44.    End
  45.    Begin Menu mnuFile 
  46.       Caption         =   "&File"
  47.       Index           =   1
  48.       Begin Menu mnuFileOpen 
  49.          Caption         =   "&Open"
  50.          Index           =   2
  51.       End
  52.       Begin Menu mnuFileSaveAs 
  53.          Caption         =   "&Save As"
  54.          Index           =   3
  55.       End
  56.       Begin Menu mnuFilePrint 
  57.          Caption         =   "&Print"
  58.          Index           =   9
  59.       End
  60.       Begin Menu mnuFileExit 
  61.          Caption         =   "E&xit"
  62.          Index           =   6
  63.       End
  64.    End
  65.    Begin Menu mnuRun 
  66.       Caption         =   "&Run"
  67.       Index           =   4
  68.    End
  69.    Begin Menu mnuCustom 
  70.       Caption         =   "&Custom"
  71.       Index           =   5
  72.       Begin Menu mnuCustomColor 
  73.          Caption         =   "Co&lor"
  74.          Index           =   7
  75.       End
  76.       Begin Menu mnuCustomFont 
  77.          Caption         =   "Fon&t"
  78.          Index           =   8
  79.       End
  80.    End
  81. Sub mnuCustomColor_Click (Index As Integer)
  82. CMDialog1.Flags = 3
  83. CMDialog1.Color = QBColor(14)
  84. CMDialog1.Action = 3
  85. Text1.BackColor = CMDialog1.Color
  86. End Sub
  87. Sub mnuCustomFont_Click (Index As Integer)
  88. CMDialog1.Flags = 259
  89. CMDialog1.Action = 4
  90. On Error GoTo Canc
  91. Text1.FontName = CMDialog1.FontName
  92. Text1.FontSize = CMDialog1.FontSize
  93. Text1.ForeColor = CMDialog1.Color
  94. Text1.FontStrikethru = CMDialog1.FontStrikethru
  95. Text1.FontUnderline = CMDialog1.FontUnderline
  96. Text1.FontItalic = CMDialog1.FontItalic
  97. Text1.FontBold = CMDialog1.FontBold
  98. Canc:
  99. Exit Sub
  100. End Sub
  101. Sub mnuFileExit_Click (Index As Integer)
  102. End Sub
  103. Sub mnuFileNew_Click (Index As Integer)
  104. End Sub
  105. Sub mnuFileOpen_Click (Index As Integer)
  106. CMDialog1.FilterIndex = 2
  107. CMDialog1.Filter = "Batch Files(*.bat)|*.bat"
  108. CMDialog1.Action = 1
  109. On Error GoTo Handler
  110. ReDim FileData(30)
  111. F = FreeFile
  112. Open (CMDialog1.Filename) For Input As F
  113. WordWrap = True
  114. AutoSize = True
  115. Text1.Text = Input$(LOF(F), F)
  116. Form1.Caption = "BatchEdit " & CMDialog1.Filename
  117. Close
  118. Handler:
  119. Exit Sub
  120. End Sub
  121. Sub mnuFilePrint_Click (Index As Integer)
  122. CancelError = True
  123. CMDialog1.Flags = 0
  124. CMDialog1.Action = 5
  125. Printer.FontSize = Text1.FontSize
  126. Printer.FontName = Text1.FontName
  127. Printer.FontBold = Text1.FontBold
  128. Printer.FontItalic = Text1.FontItalic
  129. Printer.FontStrikethru = Text1.FontStrikethru
  130. Printer.Print Text1.Text
  131. errr:
  132. Exit Sub
  133. End Sub
  134. Sub mnuFileSaveAs_Click (Index As Integer)
  135. CMDialog2.FilterIndex = 2
  136. CMDialog2.Filter = "Batch Files(*.bat)|*.bat"
  137. CMDialog2.Action = 2
  138. F = FreeFile
  139. On Error GoTo Erri
  140. Open (CMDialog2.Filename) For Output As F
  141. Print #F, Text1.Text
  142. Close #F
  143. Erri:
  144. Close
  145. Exit Sub
  146. End Sub
  147. Sub mnuRun_Click (Index As Integer)
  148. If Form1.Caption = "BatchEdit (Untitled)" Then
  149. MsgBox ("You must save the file before executing it!")
  150. Exit Sub
  151. End If
  152. On Error GoTo No
  153. N = InputBox("If any, what are the command-line parameters")
  154. X = Shell(CMDialog1.Filename & " " & N)
  155. Exit Sub
  156. End Sub
  157. Sub mnuRunCommand_Click (Index As Integer)
  158. On Error GoTo Eri
  159. X = Shell(CMDialog1.Filename)
  160. Exit Sub
  161. End Sub
  162.